﻿Imports Microsoft.VisualBasic

Public Class DBBudgetTransferHdrSP
    Inherits DBParentStoredProcedureClass

    Public Operation As New TableField("Operation", Data.SqlDbType.NVarChar)
    Public BTID As New TableField("BTID", Data.SqlDbType.Int)
    Public BTNo As New TableField("BTNo", Data.SqlDbType.NVarChar)
    Public BTYear As New TableField("BTYear", Data.SqlDbType.Int)
    Public BTDate As New TableField("BTDate", Data.SqlDbType.DateTime)
    Public Remarks As New TableField("Remarks", Data.SqlDbType.NVarChar)
    Public RecordStatus As New TableField("RecordStatus", Data.SqlDbType.Int)
    Public LastUpdateBy As New TableField("LastUpdateBy", Data.SqlDbType.NVarChar)
    Public LastUpdateDate As New TableField("LastUpdateDate", Data.SqlDbType.DateTime)
    Public DeleteReason As New TableField("DeleteReason", Data.SqlDbType.NVarChar)

    Sub New()
        MyBase.StoredProcedureName = "BudgetTransferHdrSP"
    End Sub

    Public Shadows Function QueryDatabase(ByVal QueryType As SqlQueryType, _
                                 Optional ByVal Operation As String = "", _
                                 Optional ByVal BTID As String = "", _
                                 Optional ByVal BTNo As String = "", _
                                 Optional ByVal BTYear As String = "", _
                                 Optional ByVal BTDate As String = "", _
                                 Optional ByVal Remarks As String = "", _
                                 Optional ByVal RecordStatus As String = "", _
                                 Optional ByVal LastUpdateBy As String = "", _
                                 Optional ByVal LastUpdateDate As String = "", _
                                 Optional ByVal DeleteReason As String = "") As Object

        MyBase.FieldsArrayList = New ArrayList
        Me.Operation.SetValue(Operation, MyBase.FieldsArrayList)
        Me.BTID.SetValue(BTID, MyBase.FieldsArrayList)
        Me.BTNo.SetValue(BTNo, MyBase.FieldsArrayList)
        Me.BTYear.SetValue(BTYear, MyBase.FieldsArrayList)
        Me.BTDate.SetValue(BTDate, MyBase.FieldsArrayList)
        Me.Remarks.SetValue(Remarks, MyBase.FieldsArrayList)
        Me.RecordStatus.SetValue(RecordStatus, MyBase.FieldsArrayList)
        Me.LastUpdateBy.SetValue(LastUpdateBy, MyBase.FieldsArrayList)
        Me.LastUpdateDate.SetValue(LastUpdateDate, MyBase.FieldsArrayList)
        Me.DeleteReason.SetValue(DeleteReason, MyBase.FieldsArrayList)

        Return MyBase.QueryDatabase(QueryType)
    End Function

End Class
